Hardware unique ID extractor|Pascal source code available for Delphi programmers|Extracts unique serial numbers from your computer's hardware

Hardware ID Extractor DLL
Hardware serial number extractor library

Hardware ID Extractor simple demo - Source code:

Three lines of code is all you need to use the DLL. It imports the CPUFamily from the HardwareIDExtractorPas.DLL. If you use HardwareIDExtractorC.DLL then you should NOT use FastShareMem.

program Demo;

uses
   FastShareMem in '..\!HardwareIDExtractor DLL\FastShareMem.pas',
   Forms,
   LoadPascalDLL in 'LoadPascalDLL.pas' {Form1};

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

UNIT Unit1;
INTERFACE
USES Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

TYPE
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;

VAR Form1: TForm1;

{ FUNCTIONS IMPORTED FROM DLL: }
function CPUFamily: string; register; external 'HardwareIDExtractorPas.DLL';

implementation {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= CPUFamily;
end;

end.

Download the source code.

Note: This code was designed for v2 of our DLL but it should still work with v1.5.

Hardware ID Extractor